home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / dos support (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  177 lines
  1. 0 rem dos support (d. spruyt, 1985)   :
  2. 1 :
  3. 2 rem 5 statements, 2 functions
  4. 3 :
  5. 4 rem keyword chars: 24
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem  s/cat      kat      8644    123
  9. 8 rem  s/dos      comms    8742    124
  10. 9 rem  s/dev      dvc      8766    125
  11. 10 rem s/dload    dld      8808    126
  12. 11 rem s/dsave    dsve     8814    127
  13. 12 rem f/ds$      dss      8598    128
  14. 13 rem f/ds       dsn      8618    129
  15. 14 :
  16. 15 rem u/usfp (2620/006)
  17. 16 :
  18. 17 rem ================================
  19. 18 :
  20. 134 .asc "ca[212]do[211]de[214]"
  21. 135 .asc "dloa[196]dsav[197]"
  22. 620 .asc "ds":.byte $a4:.asc "d[211]"
  23. 1134 .word kat-1,comms-1,dvc-1
  24. 1135 .word dld-1,dsve-1
  25. 1620 .word dss-1,dsn-1
  26. 2620 usfp ldx #0
  27. 2622 stx $0d
  28. 2624 sta $62
  29. 2626 sty $63
  30. 2628 ldx #$90
  31. 2630 sec
  32. 2632 jmp $bc49
  33. 2634 ;
  34. 8560 dss1 lda device
  35. 8562 sta $ba
  36. 8564 lda #$6f
  37. 8566 sta $b9
  38. 8568 lda #0
  39. 8570 sta $b7
  40. 8572 jsr chpres
  41. 8574 lda $ba
  42. 8576 jsr $ffb4
  43. 8578 lda $b9
  44. 8580 jsr $ff96
  45. 8582 ldy #$ff
  46. 8584 dss2 iny
  47. 8586 jsr $ffa5
  48. 8588 sta dsbuf,y
  49. 8590 cmp #$0d
  50. 8592 bne dss2
  51. 8594 jsr $f642
  52. 8596 rts
  53. 8598 dss jsr dss1
  54. 8600 tya
  55. 8602 jsr $b47d
  56. 8604 tay
  57. 8606 dss3 lda dsbuf,y
  58. 8608 sta ($62),y
  59. 8610 dey
  60. 8612 bpl dss3
  61. 8614 jmp $b4ca
  62. 8616 ;
  63. 8618 dsn jsr dss1
  64. 8620 ldx dsbuf
  65. 8622 lda dsbuf+1
  66. 8624 and #$0f
  67. 8626 dsn1 cpx #"0"
  68. 8628 beq dsn2
  69. 8630 dex
  70. 8632 adc #9
  71. 8634 bcc dsn1
  72. 8636 dsn2 tay
  73. 8638 lda #0
  74. 8640 jmp usfp
  75. 8642 ;
  76. 8644 kat lda device
  77. 8646 sta $ba
  78. 8648 lda #$60
  79. 8650 sta $b9
  80. 8652 lda #1
  81. 8654 ldy #>dollar
  82. 8656 ldx #<dollar
  83. 8658 jsr $ffbd
  84. 8660 jsr $f3d5
  85. 8662 lda $ba
  86. 8664 jsr $ffb4
  87. 8666 lda $b9
  88. 8668 jsr $ff96
  89. 8670 lda #0
  90. 8672 sta $90
  91. 8674 jsr $ffa5
  92. 8676 jsr $ffa5
  93. 8678 kat1 jsr $ffa5
  94. 8680 jsr $ffa5
  95. 8682 ldx $90
  96. 8684 bne kat2
  97. 8686 tax
  98. 8688 bne kat3
  99. 8690 kat2 jsr $f642
  100. 8692 jmp $aad7
  101. 8694 kat3 jsr $aad7
  102. 8696 jsr $ffa5
  103. 8698 sta t2
  104. 8700 jsr $ffa5
  105. 8702 ldx t2
  106. 8704 jsr $bdcd
  107. 8706 jsr $ab3f
  108. 8708 kat4 jsr $ffa5
  109. 8710 ldx $90
  110. 8712 bne kat2
  111. 8714 jsr $ffd2
  112. 8716 bne kat4
  113. 8718 jsr $ffe1
  114. 8720 beq kat2
  115. 8722 jsr $ffe4
  116. 8724 beq kat1
  117. 8726 kat5 jsr $ffe1
  118. 8728 beq kat2
  119. 8730 jsr $ffe4
  120. 8732 beq kat5
  121. 8734 bne kat1
  122. 8736 dollar .byte "$"
  123. 8738 device .byte 8
  124. 8740 ;
  125. 8742 comms jsr $ad9e
  126. 8744 jsr $b6a3
  127. 8746 sta $b7
  128. 8748 sty $bc
  129. 8750 stx $bb
  130. 8752 lda device
  131. 8754 sta $ba
  132. 8756 lda #$6f
  133. 8758 sta $b9
  134. 8760 jsr chpres
  135. 8762 jmp $f3d5
  136. 8764 ;
  137. 8766 dvc jsr $b79e
  138. 8768 cpx #8
  139. 8770 bcc dvc2
  140. 8772 cpx #$0c
  141. 8774 bcs dvc2
  142. 8776 stx device
  143. 8778 dvc1 rts
  144. 8780 dvc2 jmp $b248
  145. 8782 ;
  146. 8784 name lda #0
  147. 8786 sta $b9
  148. 8788 sta $0a
  149. 8790 jsr $e257
  150. 8792 lda device
  151. 8794 sta $ba
  152. 8796 jsr $79
  153. 8798 beq dvc1
  154. 8800 jsr $aefd
  155. 8802 jsr $b79e
  156. 8804 jmp $e1ec
  157. 8806 ;
  158. 8808 dld jsr name
  159. 8810 jmp $e16f
  160. 8812 ;
  161. 8814 dsve jsr name
  162. 8816 jmp $e159
  163. 8818 ;
  164. 8820 chpres lda #0
  165. 8822 sta $90
  166. 8824 lda $ba
  167. 8826 jsr $ffb1
  168. 8828 jsr $ffae
  169. 8830 lda $90
  170. 8832 bne chp1
  171. 8834 rts
  172. 8836 chp1 ldx #5
  173. 8838 jmp ($300)
  174. 8840 ;
  175. 8842 dsbuf *=*+$24
  176. 8844 ;
  177.